home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
pc
/
mac_file
/
vendor_d
/
neuralwa
/
nw2v50
/
lvq.nnc
< prev
next >
Wrap
Text File
|
1993-08-23
|
2KB
|
49 lines
csv3.1 !file format is Control Strategy Version 3.1
!19:30 21-Jun-88 (lvq.nnc) Linear Vector Quantization Network
!************************************************************************
!* *
!* Linear Vector Quantization Network Control Strategy *
!* *
!************************************************************************
!
! *** Recall ***
!
!MASK label op-code operands comment
L_saR_sa trace aux3 ! set trace option to aux3
L_saR_sa cset recall,1 ! recall count
L___R_sa lset in ! input layer
L___R_sa io read ! get input data
L___R_sa lset cur,1 ! go to Kohonen layer
L___R_sa math sum|output|fire ! determine Kohonen winner
L___R_sa lset out ! go to output layer
L___R_sa io rcltst ! Desired Output (Test)
L___R_sa math sum|tran|output|ce=e|e-=w|swap|fire ! set output vector - assume standard sum
L___R_sa io write ! write results
L___R_sa brct @exit ! skip to end
!
! *** Learning ***
!
L_saR___ lset in ! start at input layer
L_saR___ io lrnin ! get input data
L_saR___ lset cur,1 ! go to Kohonen layer
L_saR___ math e=0 ! set error to 0
L_saR___ lset out ! go to output layer
L_saR___ io lrnout ! get output data
L_saR___ math backp ! back-propagate the category
L_saR___ lset cur,-1 ! go to Kohonen layer
L_saR___ math sum|output|fire ! determine kohonen winner
L_saR___ math learn ! updates weights
L_saR___ lset out ! go to output layer
L_saR___ math sum|tran|output|ce=e|e-=w|swap|fire ! set output and current error
L_saR___ io lrnrslt ! write results
LisaRisa @exit trace 0 ! turn off any trace function